100 MP=828:KEY=882:BY=254:TL=13776:CS=0
102 PRINT"[147]DATA CLOAK"
104 READ K:IFK<0THEN108
106 CS=CS+K:POKEMP,K:MP=MP+1:GOTO104
108 IF CS<>TL THENPRINT"ERROR="CS:GOTO154
110 PRINT"OKAY":SYSKEY:KEY=KEY-1
112 PRINT"ENCRYPTION KEY":INPUT KY$:IFKY$=""THEN154
114 PRINT"SOURCE FILENAME":INPUT N1$:IFN1$=""THEN154
116 PRINT"FILE TYPE (P/S/U)":INPUT SF$:IFSF$=""THENSF$="P"
118 PRINT"NEW FILENAME":INPUT N2$:IFN2$=""THEN154
120 PRINT"FILE TYPE (P/S/U)":INPUT NF$:IFNF$=""THENNF$="P"
122 SF$=","+LEFT$(SF$,1)+",R":NF$=","+LEFT$(NF$,1)+",W"
124 N1$="0:"+LEFT$(N1$,16)+SF$:N2$="0:"+LEFT$(N2$,16)+NF$
126 PRINT"OPENING ";N1$:OPEN15,8,15,"I"
128 OPEN2,8,2,N1$:GOSUB158:PRINTDK$:IFERTHEN154
130 PRINT"OPENING ";N2$
132 OPEN 3,8,3,N2$:GOSUB158:PRINTDK$:IFERTHEN154
134 FORLP=1TOLEN(KY$):POKEKEY+LP,ASC(MID$(KY$,LP,1)):NEXTLP
136 POKEKEY+LP,0:PRINT"CRYPTING WAIT"
138 ER=1
140 GET#2,Q$:IF STATUS AND 64 THENER=0
142 K=0:IFQ$=""THEN146
144 K=ASC(Q$)
146 POKEBY,K:SYS828:K=PEEK(BY)
148 PRINT#3,CHR$(K);:IFERTHEN140
150 GOSUB158:PRINTDK$:IFERTHEN154
152 PRINT" ALL DONE."
154 CLOSE2:CLOSE3:CLOSE15:END
156 REM DISK ERRORS
158 ER=0:INPUT#15,E1,E2$,E3,E4
160 DK$=STR$(E1)+CHR$(32)+E2$
162 IFE1>20THENER=1:DK$=CHR$(18)+DK$
164 RETURN
166 DATA 222,135,090,041,121
168 DATA 063,132,255,132,178
170 DATA 203,129,179,122,138
172 DATA 121,254,135,026,210
174 DATA 054,054,121,203,129
176 DATA 112,234,120,051,103
178 DATA 235,129,026,211,070
180 DATA 255,129,211,121,255
182 DATA 134,211,122,210,235
184 DATA 129,178,186,086,170
186 DATA 131,054,152,134,169
188 DATA 093,141,002,003,169
190 DATA 003,141,003,003,169
192 DATA 060,133,251,169,003
194 DATA 133,252,160,000,132
196 DATA 253,177,251,073,122
198 DATA 145,251,200,192,054
200 DATA 208,245,169,114,133
202 DATA 251,169,003,133,252
204 DATA 096,255,-7